


version 9.0

clear _all
set more off
set mem 1000m
set matsize 11000
set maxvar 10000


* Path
 *global foldp "C:/work/Integration/"
  global foldp "C:/work/Wealth Counterfactuals/Verification/Results/DG/Final"

* Asset
global asset Mortg		
*Asset abbreviation
global abv mrt

************
*  House   * 
************

* 1) US_SE
use "${foldp}/${asset}/${abv}_US_1.dta", clear
twoway (line ref p, sort clpat(longdash) lcolor(navy)) (line  u_ref p, sort clpat(dot) lcolor(navy)) (line  l_ref p, sort clpat(dot) lcolor(navy)) (line cvef p, sort clpat(shortdash) lcolor(red)) (line  u_cvef p, sort clpat(dot) lcolor(red)) (line  l_cvef p, sort clpat(dot) lcolor(red))  (line diff p, sort lpattern(solid) color(green)) in 8/92, yline(0, lcolor(black)) ytitle("")  xtitle("") ylabel( -1 0 1 2, angle(horizontal)) xlabel(,nolabel) legend(on order(7 "Diff" 1 "Coeff" 4 "Cov") size(2) margin(zero) bmargin(zero) rows(1)) title("US - SE",  color(black) box bexpand bcolor(bluishgray)) graphregion(margin(zero)) plotregion(margin(0 2 0 0))
graph save "${foldp}/${asset}/Graphs/1US_SE_${abv}.gph", replace

* 2) US_DK
use "${foldp}/${asset}/${abv}_US_2.dta", clear
twoway (line ref p, sort clpat(longdash) lcolor(navy)) (line  u_ref p, sort clpat(dot) lcolor(navy)) (line  l_ref p, sort clpat(dot) lcolor(navy)) (line cvef p, sort clpat(shortdash) lcolor(red)) (line  u_cvef p, sort clpat(dot) lcolor(red)) (line  l_cvef p, sort clpat(dot) lcolor(red))  (line diff p, sort lpattern(solid) color(green)) in 8/92, yline(0, lcolor(black)) ytitle("")  xtitle("") ylabel(,nolabel) xlabel(,nolabel) legend(off) title("US - DK",  color(black) box bexpand bcolor(bluishgray)) graphregion(margin(zero)) plotregion(margin(0 3 0 0)) ytick(-1 0 1 2)
graph save "${foldp}/${asset}/Graphs/2US_DK_${abv}.gph", replace

*3) US-DE
use "${foldp}/${asset}/${abv}_US_3.dta", clear
twoway (line ref p, sort clpat(longdash) lcolor(navy)) (line  u_ref p, sort clpat(dot) lcolor(navy)) (line  l_ref p, sort clpat(dot) lcolor(navy)) (line cvef p, sort clpat(shortdash) lcolor(red)) (line  u_cvef p, sort clpat(dot) lcolor(red)) (line  l_cvef p, sort clpat(dot) lcolor(red))  (line diff p, sort lpattern(solid) color(green)) in 8/92, yline(0, lcolor(black)) ytitle("")  xtitle("") ylabel(,nolabel) xlabel(,nolabel) legend(off) title("US - DE",  color(black) box bexpand bcolor(bluishgray)) graphregion(margin(zero)) plotregion(margin(0 3 0 0)) ytick(0(1)2)
graph save "${foldp}/${asset}/Graphs/3US_DE_${abv}.gph", replace
*********

* 4) US_NL
use "${foldp}/${asset}/${abv}_US_4.dta", clear
twoway (line ref p if ref>=-1.5, sort clpat(longdash) lcolor(navy)) (line  u_ref p if u_ref>=-1.5, sort clpat(dot) lcolor(navy)) (line  l_ref p if l_ref>=-1.5, sort clpat(dot) lcolor(navy)) (line cvef p if cvef>=-1.5, sort clpat(shortdash) lcolor(red)) (line  u_cvef p if u_cvef>=-1.5, sort clpat(dot) lcolor(red)) (line  l_cvef p if l_cvef>=-1.5, sort clpat(dot) lcolor(red))  (line diff p if diff>=-1.5, sort lpattern(solid) color(green)) in 8/92, yline(0, lcolor(black)) ytitle("")  xtitle("") ylabel(  -1 0 1 2, angle(horizontal)) xlabel(,nolabel) legend(off) title("US - NL",  color(black) box bexpand bcolor(bluishgray)) graphregion(margin(zero)) plotregion(margin(0 3 0 0))
graph save "${foldp}/${asset}/Graphs/4US_NL_${abv}.gph", replace

* 5) US_BE
use "${foldp}/${asset}/${abv}_US_5.dta", clear
*twoway (line ref p, sort clpat(longdash) lcolor(navy)) (line  u_ref p, sort clpat(dot) lcolor(navy)) (line  l_ref p, sort clpat(dot) lcolor(navy)) (line cvef p, sort clpat(shortdash) lcolor(red)) (line  u_cvef p, sort clpat(dot) lcolor(red)) (line  l_cvef p, sort clpat(dot) lcolor(red))  (line diff p, sort lpattern(solid) color(green)) in 8/92, yline(0, lcolor(black)) ytitle("")  xtitle("") ylabel(,nolabel) xlabel(,nolabel) legend(off) title("US - BE",  color(black) box bexpand bcolor(bluishgray)) graphregion(margin(zero)) plotregion(margin(0 3 0 0))
twoway (line ref p, sort clpat(longdash) lcolor(navy)) (line  u_ref p, sort clpat(dot) lcolor(navy)) (line  l_ref p, sort clpat(dot) lcolor(navy)) (line cvef p, sort clpat(shortdash) lcolor(red)) (line  u_cvef p, sort clpat(dot) lcolor(red)) (line  l_cvef p, sort clpat(dot) lcolor(red))  (line diff p, sort lpattern(solid) color(green)) in 8/92, yline(0, lcolor(black)) ytitle("")  xtitle("") ylabel(,nolabel) xlabel(,nolabel) legend(off) title("US - BE",  color(black) box bexpand bcolor(bluishgray)) graphregion(margin(zero)) plotregion(margin(0 3 0 0)) ytick(-1 0 1 2)
graph save "${foldp}/${asset}/Graphs/5US_BE_${abv}.gph", replace

* 6) US_FR
use "${foldp}/${asset}/${abv}_US_6.dta", clear
twoway (line ref p, sort clpat(longdash) lcolor(navy)) (line  u_ref p, sort clpat(dot) lcolor(navy)) (line  l_ref p, sort clpat(dot) lcolor(navy)) (line cvef p, sort clpat(shortdash) lcolor(red)) (line  u_cvef p, sort clpat(dot) lcolor(red)) (line  l_cvef p, sort clpat(dot) lcolor(red))  (line diff p, sort lpattern(solid) color(green)) in 8/92, yline(0, lcolor(black)) ytitle("")  xtitle("") ylabel(,nolabel) xlabel(,nolabel) legend(off) title("US - FR",  color(black) box bexpand bcolor(bluishgray)) graphregion(margin(zero)) plotregion(margin(0 3 0 0)) ytick(-1 0 1 2)
graph save "${foldp}/${asset}/Graphs/6US_FR_${abv}.gph", replace
***********************

* 7) US_CH
use "${foldp}/${asset}/${abv}_US_7.dta", clear
twoway (line ref p, sort clpat(longdash) lcolor(navy)) (line  u_ref p, sort clpat(dot) lcolor(navy)) (line  l_ref p, sort clpat(dot) lcolor(navy)) (line cvef p, sort clpat(shortdash) lcolor(red)) (line  u_cvef p, sort clpat(dot) lcolor(red)) (line  l_cvef p, sort clpat(dot) lcolor(red))  (line diff p, sort lpattern(solid) color(green)) in 8/92, yline(0, lcolor(black)) ytitle("")  xtitle("") ylabel(-1 0 1 2, angle(horizontal)) xlabel(,nolabel) legend(off) title("US - CH",  color(black) box bexpand bcolor(bluishgray)) graphregion(margin(zero)) plotregion(margin(0 3 0 0))
graph save "${foldp}/${asset}/Graphs/7US_CH_${abv}.gph", replace

*8) US_AT
use "${foldp}/${asset}/${abv}_US_8.dta", clear
twoway (line ref p, sort clpat(longdash) lcolor(navy)) (line  u_ref p, sort clpat(dot) lcolor(navy)) (line  l_ref p, sort clpat(dot) lcolor(navy)) (line cvef p, sort clpat(shortdash) lcolor(red)) (line  u_cvef p, sort clpat(dot) lcolor(red)) (line  l_cvef p, sort clpat(dot) lcolor(red))  (line diff p, sort lpattern(solid) color(green)) in 8/92, yline(0, lcolor(black)) ytitle("")  xtitle("") ylabel(,nolabel) xlabel(,nolabel) legend(off) title("US - AT",  color(black) box bexpand bcolor(bluishgray)) graphregion(margin(zero)) plotregion(margin(0 3 0 0)) ytick(-1 0 1 2)
graph save "${foldp}/${asset}/Graphs/8US_AT_${abv}.gph", replace

*9) US_IT
use "${foldp}/${asset}/${abv}_US_9.dta", clear
twoway (line ref p, sort clpat(longdash) lcolor(navy)) (line  u_ref p, sort clpat(dot) lcolor(navy)) (line  l_ref p, sort clpat(dot) lcolor(navy)) (line cvef p, sort clpat(shortdash) lcolor(red)) (line  u_cvef p, sort clpat(dot) lcolor(red)) (line  l_cvef p, sort clpat(dot) lcolor(red))  (line diff p, sort lpattern(solid) color(green)) in 8/92, yline(0, lcolor(black)) ytitle("")  xtitle("") ylabel(,nolabel) xlabel(,nolabel) legend(off) title("US - IT",  color(black) box bexpand bcolor(bluishgray)) graphregion(margin(zero)) plotregion(margin(0 3 0 0)) ytick(-1 0 1 2)
graph save "${foldp}/${asset}/Graphs/9US_IT_${abv}.gph", replace
***********

*10) US_ES
use "${foldp}/${asset}/${abv}_US_10.dta", clear
twoway (line ref p, sort clpat(longdash) lcolor(navy)) (line  u_ref p, sort clpat(dot) lcolor(navy)) (line  l_ref p, sort clpat(dot) lcolor(navy)) (line cvef p, sort clpat(shortdash) lcolor(red)) (line  u_cvef p, sort clpat(dot) lcolor(red)) (line  l_cvef p, sort clpat(dot) lcolor(red))  (line diff p, sort lpattern(solid) color(green)) in 8/92, yline(0, lcolor(black)) ytitle("")  xtitle("") ylabel( -1 0 1 2 , angle(horizontal)) legend(off) title("US - ES",  color(black) box bexpand bcolor(bluishgray)) graphregion(margin(zero)) plotregion(margin(0 3 0 0))
graph save "${foldp}/${asset}/Graphs/10US_ES_${abv}.gph", replace

*11) US_GR
use "${foldp}/${asset}/${abv}_US_11.dta", clear
twoway (line ref p, sort clpat(longdash) lcolor(navy)) (line  u_ref p, sort clpat(dot) lcolor(navy)) (line  l_ref p, sort clpat(dot) lcolor(navy)) (line cvef p, sort clpat(shortdash) lcolor(red)) (line  u_cvef p, sort clpat(dot) lcolor(red)) (line  l_cvef p, sort clpat(dot) lcolor(red))  (line diff p, sort lpattern(solid) color(green)) in 8/92, yline(0, lcolor(black)) ytitle("")  xtitle("") ylabel(,nolabel) legend(off) title("US - GR",  color(black) box bexpand bcolor(bluishgray)) graphregion(margin(zero)) plotregion(margin(0 3 0 0)) ytick(-1 0 1 2)
graph save "${foldp}/${asset}/Graphs/11US_GR_${abv}.gph", replace

* 12) US_EN
use "${foldp}/${asset}/${abv}_US_12.dta", clear
twoway (line ref p, sort clpat(longdash) lcolor(navy)) (line  u_ref p, sort clpat(dot) lcolor(navy)) (line  l_ref p, sort clpat(dot) lcolor(navy)) (line cvef p, sort clpat(shortdash) lcolor(red)) (line  u_cvef p, sort clpat(dot) lcolor(red)) (line  l_cvef p, sort clpat(dot) lcolor(red))  (line diff p, sort lpattern(solid) color(green)) in 8/92, yline(0, lcolor(black)) ytitle("")  xtitle("") ylabel(,nolabel) legend(off) title("US - EN",  color(black) box bexpand bcolor(bluishgray)) graphregion(margin(zero)) plotregion(margin(0 3 0 0)) ytick(-1 0 1 2)
graph save "${foldp}/${asset}/Graphs/12US_EN_${abv}.gph", replace

**********************************
clear

cd "${foldp}/${asset}/Graphs/"

grc1leg 1US_SE_${abv}.gph 2US_DK_${abv}.gph 3US_DE_${abv}.gph 4US_NL_${abv}.gph 5US_BE_${abv}.gph 6US_FR_${abv}.gph  7US_CH_${abv}.gph 8US_AT_${abv}.gph 9US_IT_${abv}.gph 10US_ES_${abv}.gph 11US_GR_${abv}.gph 12US_EN_${abv}.gph , imargin(zero) ycommon xcommon  rows(4) cols(3) plotregion(margin(zero)) graphregion(margin(0 1 0 0)) commonscheme

graph save mortg_all,replace
**********************************


